levelplot(z ~ x+y, pretty=TRUE, contour=TRUE, data=d3)